home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 5
/
Aminet 5 - March 1995.iso
/
Aminet
/
comm
/
fido
/
TLPrefs1_1a.lha
/
TrapListPrefs
/
Install_TrapListPrefs
< prev
next >
Wrap
Text File
|
1994-11-06
|
3KB
|
125 lines
; Installation script for TrapListPrefs
(set @user-level 2)
(transcript "Installing TrapListPrefs...")
(set rtvernum (getversion "libs:reqtools.library" ))
(set rtver (/ rtvernum 65536))
(set rtrev (- rtvernum (* rtver 65536) ) )
(set muivernum (getversion "libs:muimaster.library" ))
(set muiver (/ muivernum 65536))
(set muirev (- muivernum (* muiver 65536) ) )
( if (< rtver 38)
(message ("You have reqtools v%ld.%ld\n" rtver rtrev)
"You need to install version 38.x+ of reqtools.library\n"
"inorder to use TrapListPrefs")
)
( if (< muiver 8)
(message ("You have MUI v%ld.%ld" muiver muirev)
"You need to install version 8.x+ of MUI\n"
"in order to use TrapListPrefs."
"This version of MUI can be found in the 2.1 release\n")
)
(set locale
(askoptions
(prompt "Install which language?")
(help @askoptions-help)
(choices "English"
; "Dansk"
; "Español"
"Français" ;1
"Italiano" ;2
"Deutsch" ;3
; "Nederlands"
; "Norsk"
; "Português"
"Suomi" ;4
"Svenska" ;5
)
(default 1)
)
)
(if (IN locale 1)
(copyfiles
(source "catalogs/Français/traplistprefs.catalog")
(dest "Locale:Catalogs/Français")
)
)
(if (IN locale 2)
(copyfiles
(source "catalogs/Italiano/traplistprefs.catalog")
(dest "Locale:Catalogs/Italiano")
)
)
(if (IN locale 3)
(copyfiles
(source "catalogs/Deutsch/TrapListPrefs.catalog")
(dest "Locale:Catalogs/Deutsch")
)
)
(if (IN locale 4)
(copyfiles
(source "catalogs/Suomi/TrapListPrefs.catalog")
(dest "Locale:Catalogs/Suomi")
)
)
(if (IN locale 5)
(copyfiles
(source "catalogs/Svenska/TrapListPrefs.catalog")
(dest "Locale:Catalogs/Svenska")
)
)
( if (= (exists "Mail:TrapList.cfg" (noreq)) 1)
(set cfg
(askbool
(prompt "You already have a configuration for TrapList\n"
"in your Mail: directory.\n"
"Do you want to TrapListPrefs to automatically load\n"
"that config when it is run" )
(help "It's up to YOU.")
(choices "Yes" "No")
(default 1) ; 0 = no
)
)
)
(if (= cfg 1) ; conditional test
(tooltype
(dest "TrapListPrefs")
(settooltype "CONFIG" "Mail:TrapList.cfg")
)
)
(set destdir
(askdir
(prompt "Install TrapListPrefs where?")
(help @askdir-help)
(default "SYS:Prefs")
)
)
(set @default-dest destdir)
(copyfiles
(source "TrapListPrefs")
(infos)
(dest @default-dest)
)
(exit ("Please remember TrapListPrefs is shareware,\nsee docs for information about registering."))